######################################################################################
#Cleanup 
######################################################################################
rm(list=ls())
######################################################################################
#User
######################################################################################
user="dai"
HOME=switch(user,zhou="",qin="",dai="/home/dai/Documents/work/svnlocal/bidaiqinzhou/",bi="/home/shuchao/bidaiqinzhou/")
DATA=switch(user,zhou="",qin="",dai="/home/dai/Dropbox/bidaiqinzhou/Data/",bi="")
setwd(HOME)
wd<-function(str){
    return(paste(HOME,str,sep=""))
  }
wdData <- function(str) {
  return(paste(DATA, str, sep = ''))
}

######################################################################################
#Load Library
######################################################################################
## check whether a library is already installed or not
isInstalled <- function(mypkg) is.element(mypkg, installed.packages()[,1])
checkInstalled <- function(mypkg) {
  if (!isInstalled(mypkg))
    stop(paste("The package", mypkg, "is not installed!", sep = ""))
}
#install.packages('matlab',repos="http://cran.r-project.org")
#library(matlab)#to mimic matlab commands (tic, toc, ...)

#install.packages('RJSONIO',repos="http://cran.r-project.org")
#library(RJSONIO)#for toJSON and fromJSON

#install.packages('chron',repos="http://cran.r-project.org")
#library(chron)#for day.of.week, weekdays

#install.packages('RCurl',repos="http://cran.r-project.org")
#library(RCurl)

#install.packages("Rserve",repos="http://cran.r-project.org")
#library(Rserve)
#	Rserve(args="--no-save")

#install.packages("multicore",repos="http://cran.r-project.org")
#library(multicore)

#install.packages("quadprog",repos="http://cran.r-project.org")
#library("quadprog")

#install.packages("Matrix",repos="http://cran.r-project.org")
#library("Matrix")

#install.packages("timeDate",repos="http://cran.r-project.org")
#library("timeDate")

#install.packages("hash",repos="http://cran.r-project.org")
#library("hash")

######################################################################################
#Load Library Functions
######################################################################################
source(wd("/library/lib.R"))


######################################################################################
#Load interfaces
######################################################################################
source(wd('datastructure/load.R'))
